Procedemos a cargar el archivo de entrada y verificar la cantidad de registros
ar_properties <- read.csv(unz('ar_properties.zip', 'ar_properties.csv'), row.names = NULL, stringsAsFactors = TRUE, encoding = "UTF-8") head(ar_properties)